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~ SATS SYSTEM SERVICE TESTS (SUCC S.C.) ot i tb 4 90:39:18 AX/VMS Macro VO 
=SEP=1984 04:31:5 UETPSY.SRCJSATS 
C $.C 


“TITLE FATSS367 - SATS SYSTEM SERVICE TESTS (SUCC S.C.) 
- IDEN v04-000' 


—MARAARARRARARARARALALARALALARALERE SER ERAS ARRAS A RRR REALE LASER RRR ARERR ASRS R AREER | 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL at gy py EORPORATION, MAYNARD, MASSACHUSETTS. 


¢ 
¥ 
;* * 
:* * 
° o ALL RIGHTS RESERVED. - 
9 te THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
\ 3* ONLY 1W ACCORDANCE WITH THE TERM F SUCH LICENSE AND WITH THE ®* 
15 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
3 14 ;* COPIES THEREOF MAY NOT BE PRCVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY . 
0 1§ 3* TRANSFERRED. : 
3;* 
8 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
+4 19 ;* AND SH NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
B05 y 3* CORPORATION. : 
3* 
4 ¢ 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
38 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

0000 4 ;* * 

0000 5 ;* « 

4 8 Se ees 

0000 k 

0000 9 s+4 

4 ? 3 FACILITY: SATS SYSTEM SERVICE TESTS 

0000 § > ABSTRACT: The SATSSS47 module tests the execution of the following 

44 3 VMS system services: 

$38 4; 
8008 2 3 SSETPRV 
44 7 : ENVIRONMENT: User mode image. | 
000 8 ; Needs CMKRNL privilege and dynamically acquires other 
d 

4 i 3 privileges, as needed. | 

0900 “3 : AUTHOR: Larry D. Jones, CREATION DATE: OCTOBER, 1979 

0000 ‘§ : MODIFIED BY: | 

0000 45 ; v03-001 LDJ0001 Larry D. Jones 17-Sep-1980 

000 46 : Modified to conform to new build command procedures. | 

444 47 ;e* 

000 48 ;-- 
| 
| 
j 
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SATSSS47 = SATS SYSTEM SERVICE TESTS (SUCC S.C.) 16-SEP-1984 00:56: AX/VMS Macro V04-0 
y042000 DECLARATIONS ites 90:39:18 UETPSY.SRCJSATSSS47.MAR; 1 
p 0 ; -SBTTL DECLARATIONS 
0 : + MACRO LIBRARY CALLS 
0 4° LIBRARY /SYS$LIBRARY:STARLET.MLB/ 
5 $JPIDEF ; GETJPI definitions 

00 § $SHR_MESSAGES UETP,116,<<TEXT, INFO>> ; UETPS_TEXT definition 

00 SSFDEF ; stack frame definitions 

00 8 SSTSDEF 3; STS definitions 

3 25 SUE TPDEF ; UETP message definitions 

000 63 : Equated symbols 

00 63 WARNING = 0 ; warning severity value for msgs 
00 64 SUCCESS = } 3; success vis 2 cree ave 
8 65 ERROR o ¢ 5 error ef ef of oe 
0 98 INFO = ; information "' = Oe. ee 
00 67 SEVERE = 4 ; fata bg - a 

4 68 ; 

00 69 ; 

900 70 ; MACROS 

000 71 3 
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SATSSS47 = SATS SYSTEM SERVICE TESTS (SUCC S.C.) 16=SEP=1 S Ma 4-0 Pp 
y042000 DECLARATIONS mIRC eT MTR TST Soo 4 ee aE 
0000 te -PSECT RODATA,RD,NOWRT ,NOEXE,PAGE 
75 test _MOD_NAME : 
37 34 53 53 53 54 41 53 1% 76 TASCIC /SATSSS47/ ; needed for SATSMS message 
77 TEST_MOD_NAME_D: 
53 53 53 54 41 53 GOOOORT T9108 90RF ; 78 TASCID /SATSSS47/ ; module name 
19 79 TEST_MOD_BEGIN: 3; start d and fail 
GE 69 67 65 62 09° 0019 Bd TASCIC. /begin/ ste Meee adie Ramm ge 
1F 1 TEST_MOD_SUCC: 
6C 75 66 73 73 65 63 63 75 73 90" ae 3 “= TASCIC /successful/ 
00 A 83 TEST_MOD_FAIL: 
64 65 6C 69 61 66 0" $ i. 4 TASCIC /failed/ 
031 85 CS1: failure messages 
21 20 74 73 65 54 89080 SF 9105 2009" th 86 -ASCID \Test !AC service name tAC step !UL failed.\ 
6E 20 65 63 69 ig 72 65 73 20 43 41 O03F 
79 65 74 73 20 43 41 $i! 20 $2 gp $ 0048 
2E 64 65 6C 69 61 66 20 4C 55 21 20 bf ay ¢s2 
74 63 65 70 78 45 99099068" 91060000" 83 88 P -ASCID \Expected !AS = !XL received !AS = !XL\ 
4C 58 21 20 3D $9 53 41 21 20 $s 071 
“1 21 20 64 65 [e 82 $3 3 $3 35 83 Soa 
0090 89 CS3: 
74 63 65 70 78 45 99009099" LOE 0000" 0090 90 -ASCID \Expected !AS'UB = !XL received !AS'UB = !XL\ 
20 3 ¢0 42 55 21 53 41 21 20 64 O9E 
64 65 76 69 65 63 $2 72 9 4C 58 21 OOAA 
58 21 20 3D 20 42 55 21 41 21 <0 peg 
te 91 CS5: 
69 20 65 64 6F 4D ees Bea 0c3 92 -ASCID \Mode is !AS.\ 
2—E 53 41 21 20 7 Bp) ot tes 
73 75 74 61 74 73 000000DF '010E0000° 0007 34 " - SASCID.-\status\ ? 
: 3; mode messages 
72 65 73 75 000000ED'010E0000' OOes 36 wanpeecinlt \user\ . 
65 70 78 65 6E 55 pooper?” 910 9009" oF 98 .ASCID \Unexpected privilege change.\ 
65 6C 69 3 69 72 70 20 64 46 ‘ai 
2E 65 67 GE 61 68 63 3 65 6 "8 90 neevec: 
0000 11 100 -LONG 3 3; PUTMSG message vector 
B7eyi ss O19 101 "CONG UETPS_TEXT “Ss 
Bp 0p 11D 1 § ‘ 
0000173* 0121 1 -ADDRESS MESSAGEL 
125 104 SETPRV: 
56 52 50 54 45 53 69" } ; 105 -ASCIC \SETPRV\ : SETPRV service name 
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om 
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wm 


00000000 
00000000 


00000044 
00000000 
00748009 
00000000" 
00000019" 
00 
00000000 
00000000 
00000069 
00000000 
00000000 


91059009" 
20 72 65 


00000000 


44 50 
000008F ' 


000000DF 


0000000 
QOOOOEF ' 
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0000173 
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M SERVICE TESTS (suce $c.) 19736-1382 90:36:18 


AX/VMS Macro V04-0 Page 
SEP=1984 UETPSY.SRCIJSATSSS47.MAR; 1 
; .SBTTL R/W PSECT 
-PSECT RWDATA,RD,WRT,NOEXE ,PAGE 
TPID: 
«LONG 0 ; PID for this process 
CURRENT_TC: 


ptr to current test case 
put it on a long word boundry 


«LONG 0 
«ALIGN LONG 
REG_SAVE_ AREA: 

~ BLK 15 
RO_SAVE: 

«LONG 0 
MOD_MSG_CODE: 

«LONG UETPS_SATSMS 
TMN_ADDR: 

ADDRESS TEST_MOD_NAME 


register save area 


special case save of RO 


test module message code for putmsg 


1 

i 

He 

118 

114 

i 

19 

113 

11 

1 

15 

1 

124 TMD_ADDR: 

! 5 paveat «ADDRESS TEST_MOD_BEGIN 

1 § : -BYTE 0O ; protection return byte for SETPRT 
128 PRIVMASK: 

: 4 tun cont: UAD 0 ; priv. mask 

' 1 sateen LONG 0 3; change mode continue address 
1 § am 4 3 returned address's from SETPRT 
134 STATUS: 

13% MODE epee 

137 ; LONG 0 ; current mode string pointer 
138 REG: 

139 -ASCID \register R\ 

140 REGNUM: 

He ase -LONG 0O ; reg*ster number 

128 ; -LONG 80 3; buffer desc. 

144 -ADDRESS BUF 

145 BUF: : 

138 my -BLKB 580 

148 ; .LONG 0 ; desc. for BUF_CHECK routine 
14 ADDRESS GETBUF +8 

150 GETBUF: 

13) -LONG 132 

1 § ADDRESS +4 

1 “BLKB. 132 

154 MESSAGEL: 

155 ‘ 0 3 message desc. 

! § SERY wie BUF 

1 3 ~ LONG 0 3; service name pointer 

! 3 MSGVEC1: 3 ; PUTMSG message vector 

181 LONG VETPS_TEXT 

162 LONG 


ee} 


seh” uit 


00000060 
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sae 4 S44 444 
00000000 0000000 
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“LON 
PRIV_LIST: 
QUA 


.QUA 
PRIV_TEST: 

.QU 
ies teats’ 


QUA 
PRIV_MOD: 
yf rP 


z2v 


oo CoO OC OO OO UC @OUO oOo 
i 


SSETPRV 0,0,0,PRIV_TEST 


SEP=1 
“SEP=1 


db Oes3t:56 LETPSY 


; GETJPI item List 


oe ee eee Page 5 
JSATSSS47.MAR; 1 (1) 


resultant CURPRIV 
resultant PROCPRIV 


privileges for SETPRV to set 


saved initial image oreviceyes 
saved initial process privileges 


expected current image privileges 
expected current process privileges 


SETPRV parameter List 
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mitt 7 ba:8 756 UETPSY . SREISATSSS4? .MAR 1 nee hy 


«PSECT SATSSS47,RD,WRT,EXE,PAGE 
«SBTTL SATSSS47 


+ 
FUNCTIONAL DESCRIPTION: 

After performing some initial housekeeping, such as 
eroresng the module begin message and acquiring needed privileges, 
the system services are tested in each of their normal conditions. 
Detected failures are identified and an error message is printed 
on the terminal. Upon completion of the test a success or fail 
message is printed on the terminal. 

CALLING SEQUENCE: 

$ RUN SATSSS47 ... (DCL COMMAND) 
INPUT PARAMETERS: 

none 
IMPLICIT INPUTS: 

none 
OUTPUT PARAMETERS: 

none 
IMPLICIT OUTPUTS: 


Messages to SYSSOUTPUT are the only output from SATSSS47. 
They are of the form: 


COoOCOQCQCQCOCCQOoOoooooooooooo 


SOOoooooooooooooooooooCooooooosoooooooOoOoOoOoOoOOOOOOOOOoOOoO OM 


ZUETP=S-SATSMS, TEST MODULE SATSSS47 BEGUN ... (BEGIN MSG) 
ZUETP=S=SATSMS, TEST MODULE SATSSS47 SUCCESSFUL ... (END MSG) 
RUETP=-E-SATSMS, TEST MODULE SATSSS47 FAILED ... (END MSG) 
RUETP=I-TEXT, ... (VARIABLE INFORMATION ABOUT A TEST MODULE FAILURE) 


COMPLETION CODES: 


The SATSSS47 routine terminates with a SEXIT to the 
operating system with a status code defined by UVETPS_SATSMS. 


SIDE EFFECTS: 


none 


Bee Ge Ge Se Ge Se Fe Ge Be Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ge Ge Ge Ge Ge Fe Ge Ge Se 
+> 
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CNAME WI OOO NAUE WN SO OO NAME WN 0 OONOA UE WR OO OONAUE W000 


PRIPQPINPIPINPIPINIPDNPIPIPIPIPIPYIPIPIPIPPNIPIPINIPIPIPIPYIPIPIPIRSTUPIPUPUNPIPIDY 2 OO OO 
AININIAWIWNINIAIANIPIPIPUNINPININPIPINID 2 2 OS S| SOO OOOOOOCOCOCOWOOOWOOOOOWOE 


TEST_START SATSSS47 ; let the test begin 
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$042000 Sate £584) §-8 138 88 39: 8 UETPSY.SR REIS SATSSS47.MAR;1 . 
0000 p s ENTRY SATS 557 08 
O0O4'CF D4 CLRL W*CURRENT_TC 
DD PUSHL ; 
QOOOO'CF OF PUSHAL W‘*TPID 
444 3 FB § CALLS ae »G*SYSSWAK 
0000000 ' GF FB 1 CALLS GASYSSHIBER 
O009'CF 7F OO1A PUSHAQ W*TEST MOD _NAME_ 
00000000 ' GF 1 fe 1 CALLS #1 G ISTSSSETPRN 
0445 3 SBW “MOD _MSG_PRINT 
0050'CF porF Gt OF MOVAL wW*TEST_MOB sue‘ ol W*TMD_ADDR 
0048'CF 03 0 a) ¥ F INSV #SUCCESS #0 W*MOD_MSG_CODE 
0 oD g PUSHL 
O330'CF 01 FB 00 CALLS #1,W*°REG_SAVE 
03D STPO: 
03D 39 -SBTTL SETPRV TESTS 
03D 40 ; 
Baa5 41; 
03D rf ; SSETPRV tests 
003D 43 ; 
Bp : te ; test _S form with a complete default parameter List 
003D 246 :- 
O17B'CF O125°CF ODE Baze 23 MOVAL W*SETPRV, W*SERV_NAME 3 set service name 
OO6D'CF OOES'CF DE 0044 48 MOVAL  W*UM,W*MO ; set the mode 
rt 49 soc lore 5. ITAL ST=U*GEy bi". ; get fresh copy of pecestoges 
O1C3"CF O1AB'CF 7D 006 50 MOVQ PRIV_LIST,W*PRIV_SAVE 3 Save current privileges 
O1CB'CF O1B3"CF 7D 0067 51 nova u“PRIV “LIST+8,W*PRIV_ SAVES8 ; save process privileges 
00 dd 006 2¢ PUSHL #0 3 push a dummy parameter 
0330°CF 01 #=FB 007 5 CALLS #1 ,W*REG_SAVE 3; save a reg snapshot 
007 54 SSETPRV_S 3; try total default 
te 55 FAIL. CHECK $ss_ NORMAL 3 check success 
0000000'8F DD 0084 #SS$_N 
O33A'CF 01 FB OO8A CAL tk: Fi uPREG. CHECK 
4 56 SGET APIS TTALST=¥ GET_LIST ; get the current priv. 
O1AB'CF O1C3"CF 10 29 OOA4 57 6,W*PRIV_ SAVES W°PRIV_LIST ; check for changes 
13. OOAC 58 BEQL : br if 0 
OOFI'CF ODF Bea 59 PUSHAL W*UNEXPRVCHNG ; push string variable 
O37C°CF O01 FB Q0B 60 CALLS #1,W*PRINT_FAIL ; print the failure 
008 261 108: 
087 $6 3+ 
087 65 ; 
tf rt 3 test the PRVPRV parameter _G 
$B 08 3° 
087 6 NEXT_TEST 
OB STP1 
0004 'CF 1 pO 0087 MOVL #1,W*CURRENT_TC 
0 odd pet stn L . 
0330'CF 1 B 5 ,W*REG_SAVE 
OC 6 SSETPR Ser 3 try .G with PRVPRV 
cc 6 FAIL “EMEC ss _NORM ; check for success 
000000'°8F DD C ass xN 
01BB'CF Bice cr 23 D 7 CMPC3 CALS PRIV. gave. Ee cHECK TEST heck for changes 
a w a : C 
5 13 Cor 3h Gear” 308 : br if OK 


H 13 
SATSSS47 = SATS SYSTEM SERVICE TESTS (suce $.C.) 16-SEP- 0: 8 VAX/VMS Macro V04-0 Page 
v04=000 SETPRV TESTS Beer oBe Bei sP idk HOR THES Sate Oe nuns Pase 8 
F DF QOE1 27 PUSHAL W*UNEXPRVCHNG ; push string variable | 
037C’ OP "6 FB E5 8 CALLS) #1,W*PRINT_FAIL 3 print the Yel lure 
EA 74 208: 
EA 75 34+ 
EA 6 : 
EA 77 ; test temp clr of one priv _G 
EA 4 : 
EA 79 ;:- 
EA 280 NEXT_TEST | 
EA STP2: | 
0004 'CF 3 dO EA MOVL ieee TC 
DD EF PUSHL @# 
0330'CF 1 FB OOF! CALLS AVE 
O1BB'CF O1C3"°CF 7D OOF6 1 MOVQ W*PRIV _shvé" WePRTV TEST ; get current image priv. 
O1DS'CF O1C ‘CF 7D OOFD ¢ MOVQ W“PRIV-SAVE,W*PRIV-MOD 3; make a copy of the priv. 
O1E7'CF D& 0104 CLRL ET+SETPRVS_ ets ; set for disable 
Bh D4 3198 Hf CLRL W*SET+SETPRV $ PRVPR ; disable previous priv 
O1EB'CE 1BB' CF DE 1 f 5 MOVAL wW* WiPady- TEST IWTSETSSETPRVS PRVADR ; set pelt address 
72 ONBBNC MeB'cr «be OITA. 389 {pe Fe a I ieee ott k 
rs ; clear off a space to wor 
O1BB'CF 01 2§ 01 FO OIE 88 INSV #1 Rg, A eS PRIV TEST 3 set a bit a space priv to remove 
O1D3'cF O01 5 00 FO QO1 89 INSV 40, R2.#1.W*PRIV V=MOD 3 set expected results 
00 dd O12C 90 PUSHL ; push a dummy parameter 
0O330'CF 01 FB 4 f 4 caus 1 »W*REG_ SAVE ; sous ° register snapshot 
013¢ 38 FAIL “EMEC sss. NORM 3 checl results 
0000000'8F DD 013C aesse NORMAL 
O33A'CF 01 FB B16 CAL ts #1 Ww REG_CHECK 
014 94 $SGETJPI_S TTRLST=U GET LIS ; get new priv. 
01AB'CF 01D3'CF 08 29 015C 95 CMPC #8 ,W*PRIV_MOD, G*PRIV_ LIST 3; check the results 
09 13 0164 36 8 30$ : br if OK 
OOF 1'CF DF 166 9 PUSHAL W*UNEXPRVCHNG ; push str var 
O37C'CF 01 FB OQ16A 98 CALLS #1,W*PRINT_FAIL 3 print the. loilure 
16F 99 30$: 
16F 00 ;+ 
O16F 01 ; 
016F 8 ; test temp adding of one priv _S 
016F 03 ; 
16F 04 ; 
16F 305 NEXT_TEST 
16F 
16F STP3: 
0004 'CF 93 dO \¢f MOVL Hf oW*CURRENT_TC 
0 DD 0174 PUSHL 
0330'CF 01 FB 176 CALLS #1,W*REG_SA Aw 
Q1D3'CF O1AB'CF 7D 017 $ mova *PRIV_LIST W*PRIV ; save a copy of the privs 
0188 'CF O1AB'CF 7D 1 MOVa W*PR V=LIS ST,W*PRIV— “Test : 
52 018B'CF 1F 60 EB 1 8 FFC #0,#31-W*PRIV_TEST-R : find a missing priv 
1BB'CF 7C 0190 9 CLRQ PRIV-TEST : clean out the b 
4 BH 4 § 01 4 194 10 INSV #1,R2,91,W*PRIV_TEST 3; enable that priv. 
01D3'CF 1 — Be 13 11 INSV »R2,#1,W*PRIV_MOD z make Gunes ten results 
s DD OIA \¢ ste : push a dummy parameter 
0330'CF 1 FB Q1A4 1 LLS “REG_ SAVE 3 Save a reg snapshot 
1A9 314 $SETPRV § Fite 
109-315 VADR=W-PRIV. TEST 3 try 
1BA 16 FAIL_CHECK ees NORMAL : Tek success 


ee — 
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SATSSS47 = SATS SYSTEM SERVICE TESTS csuct $.C.) 16-SEP-1 AX/VMS Macro V04- Page 9 
yo42000 SETPRV TESTS ~Eee=13be BaisS ise YORTHES Bache vOtsOe aps1 P28e (2, 
9 000000' ‘ DD O1BA Pus . S$. pear 
O33A'CF FB \¢0 ith awe REG CHECK 
1¢ 17 SGETJPI_s I BLS Tew GET_LIST i get current priv 
O1AB'CF 01D3'CF 08 3 198 18 cnet “PRIV_MOD,Q*PRIV_LIST : check on the change 
: br 
OOF 1'CF DF iff 0 PUSHAL W*UNEXPRVCHNG ; push str 
O37C'CF 1 FB 1€8 1 CALLS #1,W*PRINT_FAIL 3; print the Jelture 
1ED § 40$ 
1ED : 
1ED 4; 
158 5 ; test the perm clearing of one privilege _G 
1ED 5 = 
1ED 8 NEXT_TEST 
1ED 
1ED STP4: 
0004'CF 04 dO 1ED MOVL #4,W*CURRENT_TC 
39 DD O1F2 PUSHL #0 
0330'CF 1 FB gies CALLS #1,W*R 
O1BB'CF O1CB'CF 7D O1F9 29 mMOVa = WPRIV ~SAVE+8 W°PRI _TEST ; get process priv. 
01D3'CF 01CB'CF 7D 0 08 0 MOVQ W*PR v=s SAVE+8, weeny, MOD 
52 O1BB'CF 1F OO EA 020 31 FFS #0 #31, W*PRIV_TEST,R2 : find a priv 
O1BB'CF D4 020 $$ CLRL W°PRIV_ TEST :; clear off a space to work 
O1BB'CF O01 52 O01 #=+FO 021 3 INSV a1. R ‘a Se-PRIV. TEST ; set a bit for the priv to remove 
01D3'CF 01 52 00 FO 021 $e INSV #0.R2,#1 »W*PRIV_MOD 3; set expected results 
OlEF'CF 01 DO 0220 5 MOVL #1,W*SET“SETPRVS_PRMFLG > set the perm jLag 
00 oD 0225 $9 PUSHL +0 3 push a dummy parameter 
O330'cF 01 FB 0227 ; CALLS #1 Wc REG. SAVE ; sy a seg snapshot 
0 ¢f 8 SSETPRV_G W § tr 
0 39 FAIL. CHECK so. NORMA : check for success 
00000000'8F Dp 0235 PUSHL #358. NORMA 
O33A'CF O01 FB 023 CAL Us #1 Ww REG CHECK 
024 40 SGETIPILS $ ITAL st=4 GET LIST ; get current priv. 
O1B3'CF O1D3°CF O08 29 5 41 W*PRIV_MOD, oXPRIv _LIST+8 3: check the priv.'s 
09 = =«13 5D 4s EQL i 3; br if O 
OOFI'CF OF 5F 4 PUSHAL W*UNE XPRVCHNG 3 push string variable 
O37C°CF 01 FB 0 $3 rf: 608 CALLS #1,W*PRINT_FAIL 3; print the failure 
00 dD ef £6 PUSHL #0 : push a dummy parameter 
O330'CF 01 FB bscr 4 CALLS #1,W*REG_ SAVE 3 save a reg snapshot 
6F 6348 SSETPRV. S ENBFL GS 
6F = 349 ADR=U-PRIV. SAVE+8,- 
F 50 PRR FLG= 8 i reset perm priv to original 
8 51 FAIL_ cHecr SS$_NORM : check for failure 
990 opopee" t DD PUSHL #SS8-N ORMA 
0 FB 6 ats #1,W*REG_ CHECK 
8 26 i+ 
: ; test perm add one priv _S 
5 : NEXT_TEST 
STPS: 
0094'CF 05 DO MOVL #5,W*CURRENT_TC 
0 ODD PUSHL # 
0330°CF 1 FB 9 CALLS #1,W*REG_SAVE 


00 
00000000 ' GF 
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g 000000" of 
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A'CF 
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M SERVICE TESTS (SUCC S.C.) 1 SEP- 1984 00:56:18 
BreEE 198s bes3s soe 
MOVQ W*PRIV ob 13798 WePRIV ROD 
mova wPRiyeL ists »W*PRIV-TEST 
FFC 0,#31,W*PRIV_TEST,R2 
CLRL wW*PRIV-TEST 
INSV #1,R oy WePRIV. TEST 
INSV #1,R2,#1,W*PRIV_MOD 
PUSHL 
CALLS wanes. SAVE 
SSETPRV_S $ ENB 


piety Pn. TEST,=- 
FAIL = CHECK SS$_ NORM 
PUSHL $ NORMA 
CAL ts neu REG 7HeCk 
SGETIPI_S € i TmLstew GET LISI 
“HW PRIV_LIST?8,W°PRIV_MOD 


BEQL 
PUSHAL W*UNEXPRVCHNG 
CALLS #1,W*PRINT_FAIL 


TEST_END 
PUSHL W*TMD_ADDR 
PUSHL we THN ADDR 


PUSHL W*MOD_MSG_C 
CALLS #$$T1,G*LT 


PUSHL W*MOD_MSG~C 
CALLS #1.G*SYSSEX 


ee Sete Ge Ge Ge Se Se 
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save a copy of the privs 


find a gs ty Fo priv 
clean up the 

add the alsstnn oriv 
make expected results 
push a dummy parameter 
save a reg snapshot 


try _S . 
check for success 


get the servers priv. 
check rer change 

br if 0 

push the str variable 
print the failure 


L 
-MSG,#1,W*MOD_MSG_CODE 


~~ 
-o 
< 
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YSTEM SERVICE TESTS (suce $c.) 197 3ee- 138¢ 90: 36:1 


3 oe .SBTTL REG_SAVE 
1 } FUNCTIONAL DESCRIPTION: 
§ : Subroutine tc save R2-R11 in the register save location. 
4 : CALLING SEQUENCE: 
$ 3 PUS 3 save a dummy parameter 
§ : CALLS #1,W*REG_SAVE ; save R2-R11 
8 : INPUT PARAMETERS: 
3 3 NONE 
1 : OUTPUT PARAMETERS: 
§ ; NONE 
4 j-- 
5 
REG_SAVE: 


-WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
MOVC3 #4*10.*X14(FP).W*REG SAVE_AREA ; save the registers in the program 


F 
OO08'CF 14 AD 28 ¢ 


R 

c aa ~SBTTL REG_CHECK 

4 FUNCTIONAL DESCRIPTION: 

4 Subroutine to test RO & R2-R11 for pre er content after a service 
execution. A snapshot is taken by the REG_SAVE routine at the 
beginning of each step and this routine is executed after the 
services have been executed. 

; CALLING SEQUENCE: 
PUSHL #SS$_XXXXXX 3; push expected RO contents 


CALLS #1,W*REG_CHECK ; execute this routine 


; INPUT PARAMETERS: 
expected RO contents on the stack 


OUTPUT PARAMETERS: 
possible error messages printed using SPUTMSG 


tt  H M$QOOOTOOCOOCOCOOOOOOOOO OOOO cococecocDCNCO 


OODNA UL WN $$ OOONAUSWwr—0'o 


OL —ONOODNLSVOOPF SEPP rrrrrrrrrrrrr PF PF ODWOCOCOCOOCOOOOOOOOOOoOOO 
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REG_CHECK: 
OFFC 1 WOR “M<R2,R3,R4,R5,R6,R7,R8B,R9,R10,R11> 
50 04 aC 01 § CMPL 4(AP),RO : is this the right fail code? 
43 13 4 BEQL 10$ ; br if yes 
OD 4 4 PUSHL R ; push received data 
04 AC DD 4 5 PUSHL 4(AP) 3 push expected data 
OOD7"CF OF 4 § PUSHAL W*EXP : push the string variable 
O37c'CcF O03 FB : 5 108 CALLS #3,W*PRINT_FAIL 3 print the error message 
0008'CF 14 AD Ss 6 : 9 CMPC3) «= #4*10,*X14(FP),W*REG_SAVE_AREA ; check all but RO 
LY 0 BEQL 208 3; br if O.K. 
% 5 a 4 C 5 1 svel #REG_SAVE_AREA,R3,R6 ; calculate the register number 
7E 6 § g : ADDB #*X2.R6,-(SP) ; set number past RO-R1 and save 
24 CA 6 4 BICL #3,R1 ; backup to register boundrys 
3 CA 68 5 BICL ° 


13 
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9042006 REG_CHECK g- aoaty $0: 39:38 UE TP SY. SRETSAYSSSe 7. MAR: 1 
6 DD 4 PUSHL = (R1) 3; push received data 
8} DD : 4 $ PUSHL (RY) 3 push expected data 
haa OF 7 4 8 PUSHAL W*REG ; set string pntr param. 
O37C'CF 4 FB 7 4 CALLS #4,W*PRINT_FAIL ; print the error message 
on O88 cet ney 
4 beg a3 -SBTTL PPINT_FAIL 
7C 444 FUNCTIONAL DESCRIPTION: 
8 4s ai : Subroutine to report failures using SPUTMSG 
7¢ 463 : CALLING SEQUENCE: 
7C «69448 ; Mode #1 PUSHL EXPECTED Mode #2 PUSHL REG_NUMBER 
7C =—449 PUSHL RECEIVED PUSHL EXPECTED 
7C 450: PUSHAL eth VAR PUSHL RECEIVED 
037C 451 ; CALLS #3,W*PRINT_SAIL PUSHAL STRING_VAR 
8 7¢ $36 : CALLS #4,W*PRINT_FAIL 
7¢ 4535 ; Mode #3 PUSHAL STRING _VAR 
8 45 tee 3 CALLS #1,W*PRINT_FAIL 
037C 456 : INPUT PARAMETERS: 
b35¢ rt ; Listed above 
O37¢ 459 : OUTPUT PARAMETERS: 
37C =: 460 —=gx an error message is printed using $PUTMSG 
037C 461; 
Sets ae 
037C 464 PRINT_FAIL: 
003c O037C 465 -WORD “M<R2,R3,R4,R5> 
O37E 466 SFAO_S W*CS1,W*MESSAGEL,W°MSGL ,ATEST_MOD_NAME ,W*SERV_NAME ,W*CURRENT_TC 
or 467 SPUTASG_S W*MSGVEC ; print the méssage 
06 6C 91 o BO 468 CMPB (AP) ,#4 ; is this a register message? 
26 4«€©13 «(03830 =| 469 BEQL 10$ i: br if yes 
01 of 1 O38 rth cer (AP), #1 : ks Fats Just a message? 
3BA are $FAO_S W*CS2,WMESSAGEL.W*MSGL,4 (AP) .8(AP) .4(APS; 12(AP) 
40 11 tte one 108 BRB 0$ 3; goto output message 
3708 475 ; SFAO_S W*CS3,W*MESSAGEL,W°MSGL,4(AP),16(AP) ,8(AP) ,4( AP), 16(AP) 12 (AP) 
19 +121 rt 476 208 BRB 30$ 3; goto output message 
018B'CF 04 AC DO 040 478 "MOVE. QC AP) ,W*MSGVEC1+12 ; Save string address 
408 47 SPUTMSG_S W*MSGVEC1 : print the message 
7... rth ? ? 30s BRB 40$ ; skip the other message 
418 4 é ag SPUTMSG_S W“MSGVEC : print the message 
0440'CF 00 FB 062C 484 CALLS #0,W*MODE_ID ; identify the mode 
OOSO'CF  QO2A'CF 43 431 rt FA MOVAL W*TEST_MOD_FAIL,W*TMD_ADDR ; set failure message address 
0048'CF 03 00 02 fy r ° $88 [usv #ERROR, #0 ,93,W°MOD_MSG_CODE 3 set severity code 
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003C 044 
0 


0458 
04 046C 


~SBTTL MODE_ID 


* FUNCTIONAL DESCRIPTION: 
Subroutine to identify the mode that an exit handler is in. 


CALLING SEQUENCE: 
CALLS @ »W*MODE_ ID 


INPUT PARAMETERS: 
MODE contains an address pointing to an ascii string desc. 
of the current CPU mode. 


OUTPUT PARAMETERS: 
NONE 


S 


",WORD “M<R2,R3,R4,R 
$FAO_S wW*CS Pare eneeL, W°MSGL,MODE ; format the error message 
SPUTRSG. S W°MSGVEC : print the mode message 
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® ® 
IRR RRRARARAAAALARASAASSSASE EERE ERS E SESE EERE REESE EERE RES ERR RE RES 


MOD_MSG_PRINT: 

: PE TIAIIIITIAITIIIIALIIIIILIIII IIL LiLititiLiitiiiiiititi 
. a 
3; ®* PRINTS THE TEST MODULE BE GUN SUCCESSPUL/FAILED MESSAGES * 
; * (USING THE PUTMSG MACRO). * 


PUTMSG <MOD_MSG_CODE,#2, TMN_ADDR, TMD ~ADDR> PRINT MSG 
05 RSB tc. AND RETURN TO CALLER 
EUMRTN: 


LARRRARRARRAAAALARARARAREAELESELA REARS ERA R REESE AREA ARE E ESSER ERE S| 
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* CHANGE MODE ROUTINE. THIS ROUTINE GETS CONTROL WHENEVER 
. A CMKRNL, CMEXEC, OR CMSUP SYSTEM SER VICE Is ISSUED 

* BY THE MODE MACRO OPTIO MERELY 

. A JUMP INDIRECT ON A FIELD SET UP by 

. THE EFFECT OF RETURNING TO THE END OF THE MODE 

. MACRO EXPANSION. 
& 
® 


® 
® 
7 
MODE. IT HAS . 
x 
® 
® 
* 


(RR RRRAAAAASALALRALARLARRARERESSELALA REARS ERE SEES EERE S RRR SERRE ESS 
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woowowowowvuowowowowowowowvowoercvv~ 9lvVv9°°c°o0C7°"U 


0000 
QOOOOOSD'FF 17 JMP @CHM_CONT ; RETURN TO MODE MACRO IN NEW MODE 
* RET INSTR WILL BE ISSUED IN EXPANSION OF ‘MODE FROM, ....° MACRO 


fest END: 
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~END SATSSS47 
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“PRINT 
AREA 

SHRDEF 


SAVE 
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ASG 
MSG 
CHECK 
SAVE 
EXT 
RMAL 


C 
BR 
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Symbol table 
ML 

MODE 
MODE _ID 
MoD 

MOD 

REG 

REG 

REG 

RET 
SHRS$K 
SHRS 
$s$ 
STA 
STEP 
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PSECT name Allocation PSECT No. Attributes 


. . 000000 8 ( -) 00 ( 9} NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT woves BYTE 
SABSS 0 6 000 ¢ .) 01 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD — WRT NOVEC BYTE 
RODATA Ooo0dd12c < 30 “a ; ( ¢:) NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC PAGE 
ATA QOOQOIE? ¢ 303.) ( 3.) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC PAGE 
BATSse47 0000491 ( 1169.) 04 ¢ 4!) NOPIF USR CON REL LCL EXE RD WRT NOVEC PAGE 
fee nec e ween eeeeeseoeeeeee od 
; Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 35 00:00: 8-08 00:00:00.37 
ewe processing 137 Ba:8 : 2 BF 8898-8) 
263 BR 8 :07.1 8008.08. § 
poebel table sort 0 00:00:00.5 0: 8:00 8 
Pass 2 119 es So 0:00:03.38 
Symbol table output 10 0:00:00.0 0:00:00.09 
Psect synopsis output 3 ae 0:00:00.04 
Cross-reference output 0 B3: :00.0 0:00: 3-08 
Assembler run totals 569 O:v. v.61 00:00:22.60 


hy working set Limit was 1350 pages. 
42200 bytes (83 pages) of virtual memory were used to buffer_the intermediate cod 
There were 20 pages of symbol table space ai.located to hold 378 non-local and 12 local symbols. 
543 source lines were read in Pass 1, producing 25 object records in Pass 2. 
pages of virtual memory were used to define 34 macros. 
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Macro Library name Macros defined 
Ss eesnuace: SHALIBIUETP. ALE MLB;2 21 
$s80ukss i 10 
SDUAZS rea hue: 32 6 
+82588 (all Libraries) 31 


582 GETS were required to define 31 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:SATSSS47/0BJ=0BJ$:SATSSS47 MSRC$:SATSSS47/UPDATE=(ENH$: SATSSS47) +EXECML$/L IB+SHRLIBS$:UETP/LIB 
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